home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #14
/
Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO
/
business
/
ii738.zip
/
FORMS.DBT
(
.txt
)
< prev
next >
Wrap
dBase/FoxBase/XBase/FoxPro Database File
|
1995-10-19
|
61KB
|
938 lines
~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~
PURCHASE ORDER
[issued by]
[important]
~PAD(M_name,35)~
Our purchase order number must
~PAD(M_adr1,35)~
appear on all invoices, cases,
~PAD(M_adr2,35)~
packing lists and correspondence.
~PAD(M_adr3,35)~
[contact]
[telephone]
[order no.]
[issue date]
~po->contact~
~PAD(M_phone,14)~
~padl(ltrim(str(po->(RECNO()))),7,"0")~
~pad(dtoc(po->issued),10)~
[customer no.]
[cust. acct. no.]
[issued to]
~supplier->cust_no~
~supplier->acct_no~
~pad(aSup1,35)~
~pad(aSup2,35)~
~aSup3~
~pad(aSup4,35)~
[weight]
[required]
[f.o.b. ]
~po->weight~
~pad(dtoc(po->required),10)~
~fob->fob_terms~
[TERMS ]
[ ]
[supply cd]
[ship via]
~pad(cTerms(po->term_dscnt,po->term_days,po->net),11)~
~po->supply_cd~
~po->ship_via~
Please supply the articles and/or services listed below.
comments-> ~po->comments~
item no./description
qty
price
extended
~po2->item~ ~inv->part_no~~po2->qty~ ~inv->unit~ ~po2->cost~ ~str(po2->cost*po2->qty,15,2)~
~-~ ~trim(inv->manufact)~
~Printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
[sub-total]
~str(subtotal,15,2)~
~padc(upper(trim(M_NAME)),80)~
page ~ltrim(str(page,4))~ [order no.-> ~po-> (recno())~]
(continuation)
item no./description
qty
price
extended
taxable ~po->taxable~
non-taxable ~po->non_taxabl~
~if(empty(po->tax1_rate),"","("+str(po->tax1_rate)+"%) tax "+str(po->tax1,13,2))~
~if(empty(po->tax2_rate),"","("+str(po->tax2_rate)+"%) tax "+str(po->tax2,13,2))~
shipping ~po->freight~
[signature]
[date]
[total est. cost]
~po->total~
~Printcode("COMP")~Certified that an unencumbered balance is available to meet this commitment.~Printcode("pitch10")~
~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~
+===================================+
| PURCHASE ORDER |
+===================================+
+------------[issued by]-------------+ +------------[important]-------------+
|~PAD(M_name,35)~ | |Our purchase order number must |
|~PAD(M_adr1,35)~ | |appear on all invoices, cases, |
|~PAD(M_adr2,35)~ | |packing lists and correspondence. |
|~PAD(M_adr3,35)~ | | |
+----[contact]------+--[telephone]---+ +--[order no.]----+--[issue date]----+
|~po->contact~ | ~PAD(M_phone,14)~ | | ~padl(ltrim(str(po->(RECNO()))),7,"0")~ | ~pad(dtoc(po->issued),10)~ |
+-------------------+----------------+ +[customer no.]---+[cust. acct. no.]-+
+- [issued to] -+ |~supplier->cust_no~|~supplier->acct_no~|
|~pad(aSup1,35)~ | +-----------------+------------------+
~pad(aSup2,35)~
~aSup3~
|~pad(aSup4,35)~ |
+- -+
+[weight]-----+[required]-+[f.o.b. ]---------------------------------------+
|~po->weight~|~pad(dtoc(po->required),10)~ |~fob->fob_terms~ |
+[TERMS ]----+[ ]+[supply cd]+[ship via]----------------------------+
|~pad(cTerms(po->term_dscnt,po->term_days,po->net),11)~ | |~po->supply_cd~ |~po->ship_via~ |
+-------------+-----------+-----------+--------------------------------------+
Please supply the articles and/or services listed below.
comments-> ~po->comments~
+----+--------------------+-------------+----+---------------+---------------+
|item|item no./description| qty |unit| price | extended |
+----+--------------------+-------------+----+---------------+---------------+
~po2->item~ ~inv->part_no~~po2->qty~ ~inv->unit~ ~po2->cost~ ~str(po2->cost*po2->qty,15,2)~
~-~ ~trim(inv->manufact)~
~Printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
+---[sub-total]---+
|
~str(subtotal,15,2)~|
+-----------------+
~padc(upper(trim(M_NAME)),80)~
page ~ltrim(str(page,4))~ [order no.-> ~po-> (recno())~]
(continuation)
+----+--------------------+-------------+----+---------------+---------------+
|item|item no./description| qty |unit| price | extended |
+----+--------------------+-------------+----+---------------+---------------+
taxable ~po->taxable~
non-taxable ~po->non_taxabl~
~if(empty(po->tax1_rate),"","("+str(po->tax1_rate)+"%) tax "+str(po->tax1,13,2))~
~if(empty(po->tax2_rate),"","("+str(po->tax2_rate)+"%) tax "+str(po->tax2,13,2))~
shipping ~po->freight~
+-------[signature]----------+---[date]----+---------------+[total est. cost]+
| | | | ~po->total~|
+----------------------------+-------------+---------------+-----------------+
~Printcode("COMP")~Certified that an unencumbered balance is available to meet this commitment.~Printcode("pitch10")~
~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~ I N V O I C E
~padc(upper(m_name),48)~
~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
~padc(M_phone,48)~
[sold to]
[ship to]
~PAD(customer->name,35)~
~PAD(aShip2[1],35)~
~PAD(customer->company,35)~
~PAD(aShip2[2],35)~
~PAD(customer->address,35)~
~PAD(aShip2[3],35)~
~PAD(trim(customer->city)+", "+customer->state+" "+trim(customer->zip),35)~
~PAD(aShip2[4],35)~
[customer id]
[telephone]
[ ]
[ ]
~padl(pos->cust_id,9,"0")~
~customer->home_phone~
[INVOICE]
[date]
[trx type]
[sales rep]
~pos->(recno())~
~pad(dtoc(pos->date),10)~
~pos->trx_type~
~pos->sales_rep~ ~sale_rep->name~
[ship date]
[weight]
[ship via]
[terms]
~pad(dtoc(pos->ship_date),10)~
~pos->weight~
~pos->ship_via~
~Pad(posterms(),35)~
[cust PO]
[f.o.b.]
~pos->cust_po_no~
~fob->fob_terms~
item no./description
quantity
unit cost
extended
~pos_item->item~ ~inv->part_no~ ~pos_item->order_qty~ ~inv->unit~ ~pos_item->price~ ~str(pos_item->order_qty*pos_item->price,15,2)~
~-~ ~trim(inv->manufact)~
~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
* * * continued on page ~str(page+1,4)~ * * *
~padc(upper(trim(M_NAME)),80)~
page ~ltrim(str(page,4))~ [invoice no.-> ~pos-> (recno())~]
(continuation)
item no./description
quantity
unit cost
extended
[payment]
[charges]
~pad(aPaid[1],42)~
taxable
~pos->taxable~
~pad(aPaid[2],42)~
non-taxable
~pos->non_taxabl~
~pad(aPaid[3],42)~
~if(empty(pos->tax1_rate),space(12)+"
"+space(17),"("+str(pos->tax
1_rate,5,2)+"%) tax
"+str(tax1(),14,2))~
~pad(aPaid[4],42)~
~if(empty(pos->tax2_rate),space(12)+"
"+space(17),"("+str(pos->tax
2_rate,5,2)+"%) tax
"+str(tax2(),14,2))~
~pad(aPaid[5],42)~
shipping
~pos->freight~
~pad(aPaid[6],42)~
T O T A L
~str(postotal(),15,2)~
[amount tendered]
[change due]
[PAYMENT DUE]
[B A
L A N C E]
~str(amt_tender(),15,2)~
~str(change(),11,2)~
~pad(if(empty(balance()),"N/A",pos->net_due),10)~
~str(balance(),15,2)~
~if(empty(balance()),"","Please pay from this Invoice: No
statement will be issued.")~
~if(!empty(pos->savings)," Y O U R S A V I N G S ->
$"+STR(POS->SAVINGS)+IF(!EMPTY(posTOTAL()),str((1-(postotal()-tax1
()-tax2())/(pos->savings+postotal()-tax1()-tax2()))*100,6,2)+"%","
")," T H A N K Y O U F O R Y O U R O R D E R !")~
~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~ I N V O I C E
+=================================================+
|~padc(upper(m_name),48)~ |
+=================================================+
~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
~padc(M_phone,48)~
+------------[sold to]---------------+ +------------[ship to]---------------+
|~PAD(customer->name,35)~ | |~PAD(aShip2[1],35)~ |
|~PAD(customer->company,35)~ | |~PAD(aShip2[2],35)~ |
|~PAD(customer->address,35)~ | |~PAD(aShip2[3],35)~ |
|~PAD(trim(customer->city)+", "+customer->state+" "+trim(customer->zip),35)~ | |~PAD(aShip2[4],35)~ |
+--[customer id]----+--[telephone]---+ +--[ ]----+--[ ]----+
| ~padl(pos->cust_id,9,"0")~ |~customer->home_phone~ | | | |
+-------------------+----------------+ +-----------------+------------------+
+[INVOICE]--+[date]-----+[trx type]+[sales rep]------------------------------+
| ~pos->(recno())~ |~pad(dtoc(pos->date),10)~ |~pos->trx_type~ |~pos->sales_rep~ ~sale_rep->name~ |
+[ship date]+[weight]---+[ship via]+-----+-----[terms]-----------------------+
|~pad(dtoc(pos->ship_date),10)~ |~pos->weight~ |~pos->ship_via~|~Pad(posterms(),35)~|
+[cust PO]--+-----------+[f.o.b.]--------+-----------------------------------+
|~pos->cust_po_no~ |~fob->fob_terms~ |
+-----------------------+----------------------------------------------------+
+----+---------------------+--------------+----+-------------+---------------+
|item|item no./description |quantity |unit|unit cost |extended |
+----+---------------------+--------------+----+-------------+---------------+
~pos_item->item~ ~inv->part_no~ ~pos_item->order_qty~ ~inv->unit~ ~pos_item->price~ ~str(pos_item->order_qty*pos_item->price,15,2)~
~-~ ~trim(inv->manufact)~
~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
* * * continued on page ~str(page+1,4)~ * * *
~padc(upper(trim(M_NAME)),80)~
page ~ltrim(str(page,4))~ [invoice no.-> ~pos-> (recno())~]
(continuation)
+----+---------------------+--------------+----+-------------+---------------+
|item|item no./description |quantity |unit|unit cost |extended |
+----+---------------------+--------------+----+-------------+---------------+
+[payment]---------------------------------+[charges]------+------
-----------+
|~pad(aPaid[1],42)~| taxable| ~pos->taxable~|
|~pad(aPaid[2],42)~| non-taxable| ~pos->non_taxabl~|
|~pad(aPaid[3],42)~|
~if(empty(pos->tax1_rate),space(12)+"|"+space(17),"("+str(pos->tax
1_rate,5,2)+"%) tax| "+str(tax1(),14,2))~|
|~pad(aPaid[4],42)~|
~if(empty(pos->tax2_rate),space(12)+"|"+space(17),"("+str(pos->tax
2_rate,5,2)+"%) tax| "+str(tax2(),14,2))~|
|~pad(aPaid[5],42)~| shipping| ~pos->freight~|
|~pad(aPaid[6],42)~| T O T A L| ~str(postotal(),15,2)~|
+[amount tendered]-+[change due]-----------+[PAYMENT DUE]--+[B A
L A N C E]--+
|~str(amt_tender(),15,2)~ |~str(change(),11,2)~
|~pad(if(empty(balance()),"N/A",pos->net_due),10)~ |
~str(balance(),15,2)~|
+------------------+-----------------------+---------------+------
-----------+
~if(empty(balance()),"","Please pay from this Invoice: No
statement will be issued.")~
~if(!empty(pos->savings)," Y O U R S A V I N G S ->
$"+STR(POS->SAVINGS)+IF(!EMPTY(posTOTAL()),str((1-(postotal()-tax1
()-tax2())/(pos->savings+postotal()-tax1()-tax2()))*100,6,2)+"%","
")," T H A N K Y O U F O R Y O U R O R D E R !")~
~printcode("INIT")~~printcode("landscape")~~PRINTCODE("LINES6")~~PRINTCODE("PITCH10")~
~aShip2[1]~
~aship2[2]~
~aship2[3]~
~aship2[4]~
~printcode("init")~~printcode("landscape")~~printcode("lines6")~~printcode("pitch10")~
~-~~customer->name~
~-~~customer->company~
~-~~customer->address~
~-~~trim(customer->city)+", "+customer->state+" "+customer->zip~
~-~~upper(customer->country)~
~printcode("portrait")~
~Printcode("INIT")~~printcode("pitch10")~~printcode("lines6")~ Q U O T E
~padc(upper(m_name),48)~
~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
~padc(M_phone,48)~
[sold to]
[ship to]
~PAD(customer->name,35)~
~PAD(aShip2[1],35)~
~PAD(customer->company,35)~
~PAD(aShip2[2],35)~
~PAD(customer->address,35)~
~PAD(aShip2[3],35)~
~PAD(trim(customer->city)+", "+customer->state+" "+trim(customer->zip),35)~
~PAD(aShip2[4],35)~
[customer id]
[telephone]
[ ]
[ ]
~padl(quote->cust_id,9,"0")~
~customer->home_phone~
[QUOTE #]
[date]
[ ]
[sales rep]
~Quote->(recno())~
~pad(dtoc(Quote->date),10)~
~quote->sales_rep~ ~sale_rep->name~
[ ]
[weight]
[ship via]
[terms]
~quote->weight~
~quote->ship_via~
~Pad(qterms(),35)~
[cust PO]
[f.o.b.]
~quote->cust_po_no~
~fob->fob_terms~
item no./description
quantity
price
extended
~inv->part_no~ ~quote2->order_qty~ ~inv->unit~ ~quote2->price~ ~str(quote2->order_qty*quote2->price,16,2)~
~-~ ~trim(inv->manufact)~
~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
* * * continued on page ~str(page+1,4)~ * * *
~padc(upper(trim(M_NAME)),80)~
page ~ltrim(str(page,4))~ [QUOTE no.-> ~quote-> (recno())~]
(continuation)
item no./description
quantity
price
extended
[
[charges]
taxable
~quote->taxable~
non-taxable
~quote->non_taxabl~
~if(empty(quote->tax1_rate),space(12)+"
"+space(17),"("+str(quote-
>tax1_rate,5,2)+"%) tax
"+str(qtax1(),14,2))~
~if(empty(quote->tax2_rate),space(12)+"
"+space(17),"("+str(quote-
>tax2_rate,5,2)+"%) tax
"+str(qtax2(),14,2))~
shipping
~quote->freight~
T O T A L
~str(qtotal(),15,2)~
~if(!empty(quote->savings)," Y O U R S A V I N G S ->
$"+STR(quote->SAVINGS)+IF(!EMPTY(qtotal()),str((1-(qtotal()-qtax1(
)-qtax2())/(quote->savings+qtotal()-qtax1()-qtax2()))*100,6,2)+"%"
,"")," T H A N K Y O U F O R Y O U R B U S I N E S S !")~
~Printcode("INIT")~~printcode("pitch10")~~printcode("lines6")~ Q U O T E
+=================================================+
|~padc(upper(m_name),48)~ |
+=================================================+
~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
~padc(M_phone,48)~
+------------[sold to]---------------+ +------------[ship to]---------------+
|~PAD(customer->name,35)~ | |~PAD(aShip2[1],35)~ |
|~PAD(customer->company,35)~ | |~PAD(aShip2[2],35)~ |
|~PAD(customer->address,35)~ | |~PAD(aShip2[3],35)~ |
|~PAD(trim(customer->city)+", "+customer->state+" "+trim(customer->zip),35)~ | |~PAD(aShip2[4],35)~ |
+--[customer id]----+--[telephone]---+ +--[ ]----+--[ ]----+
| ~padl(quote->cust_id,9,"0")~ |~customer->home_phone~ | | | |
+-------------------+----------------+ +-----------------+------------------+
+[QUOTE #]--+[date]-----+[ ]+[sales rep]------------------------------+
| ~Quote->(recno())~ |~pad(dtoc(Quote->date),10)~ | |~quote->sales_rep~ ~sale_rep->name~ |
+[ ]+[weight]---+[ship via]+-----+-----[terms]-----------------------+
| |~quote->weight~ |~quote->ship_via~|~Pad(qterms(),35)~|
+[cust PO]--+-----------+[f.o.b.]--------+-----------------------------------+
|~quote->cust_po_no~ |~fob->fob_terms~ |
+-----------------------+----------------------------------------------------+
+---------------------+----------------+----+---------------+----------------+
|item no./description |quantity |unit|price |extended |
+---------------------+----------------+----+---------------+----------------+
~inv->part_no~ ~quote2->order_qty~ ~inv->unit~ ~quote2->price~ ~str(quote2->order_qty*quote2->price,16,2)~
~-~ ~trim(inv->manufact)~
~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
* * * continued on page ~str(page+1,4)~ * * *
~padc(upper(trim(M_NAME)),80)~
page ~ltrim(str(page,4))~ [QUOTE no.-> ~quote-> (recno())~]
(continuation)
+---------------------+----------------+----+---------------+----------------+
|item no./description |quantity |unit|price |extended |
+---------------------+----------------+----+---------------+----------------+
+[
]---------------------------------+[charges]------+---------------
| | taxable|
~quote->taxable~|
| | non-taxable|
~quote->non_taxabl~|
| |
~if(empty(quote->tax1_rate),space(12)+"|"+space(17),"("+str(quote-
>tax1_rate,5,2)+"%) tax| "+str(qtax1(),14,2))~|
| |
~if(empty(quote->tax2_rate),space(12)+"|"+space(17),"("+str(quote-
>tax2_rate,5,2)+"%) tax| "+str(qtax2(),14,2))~|
| | shipping|
~quote->freight~|
| | T O T A L|
~str(qtotal(),15,2)~|
+------------------------------------------+---------------+------
-----------+
~if(!empty(quote->savings)," Y O U R S A V I N G S ->
$"+STR(quote->SAVINGS)+IF(!EMPTY(qtotal()),str((1-(qtotal()-qtax1(
)-qtax2())/(quote->savings+qtotal()-qtax1()-qtax2()))*100,6,2)+"%"
,"")," T H A N K Y O U F O R Y O U R B U S I N E S S !")~
~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~
REQUEST FOR QUOTE
[issued by]
[important]
~PAD(M_name,35)~
Our Quote number must
~PAD(M_adr1,35)~
appear on all correspondence.
~PAD(M_adr2,35)~
~PAD(M_adr3,35)~
[contact]
[telephone]
[quote no.]
[issue date]
~po->contact~
~PAD(M_phone,14)~
~padl(ltrim(str(po->(RECNO()))),7,"0")~
~pad(date(),10)~
[issued to]
~pad(aSup1,35)~
~aSup2~
~aSup3~
~pad(aSup4,35)~
[weight]
[required]
[f.o.b. ]
~po->weight~
~pad(po->required,10)~
~fob->fob_terms~
[TERMS ]
[EXP DATE ]
[supply cd]
[ship via]
~rfq->supply_cd~
~po->ship_via~
~Printcode("COMP")~Please quote the articles and/or services listed below. Include freight, taxes and other charges.~Printcode("NOCOMP")~
comments-> ~po->comments~
item no./description
qty
price
extended
~po2->item~ ~if(empty(supply2->part_no),inv->part_no,supply2->part_no)~~po2->qty~ ~inv->unit~
~-~ ~trim(inv->manufact)~
~Printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
~padc(upper(trim(M_NAME)),80)~
page ~ltrim(str(page,4))~
[quote no.-> ~po-> (recno())~]
(continuation)
item no./description
qty
price
extended
taxable
non-taxable
( %) tax
( %) tax
shipping
[signature]
[date]
[est.
delivery]
[total est. cost]
~Printcode("INIT")~
+===================================+
| REQUEST FOR QUOTE |
+===================================+
+------------[issued by]-------------+ +------------[important]-------------+
|~PAD(M_name,35)~ | |Our Quote number must |
|~PAD(M_adr1,35)~ | |appear on all correspondence. |
|~PAD(M_adr2,35)~ | | |
|~PAD(M_adr3,35)~ | | |
+----[contact]------+--[telephone]---+ +--[quote no.]----+--[issue date]----+
|~po->contact~ | ~PAD(M_phone,14)~ | | ~padl(ltrim(str(po->(RECNO()))),7,"0")~ | ~pad(date(),10)~ |
+-------------------+----------------+ +-----------------+------------------+
+- [issued to] -+
|~pad(aSup1,35)~ |
~aSup2~
~aSup3~
|~pad(aSup4,35)~ |
+- -+
+[weight]-----+[required]-+[f.o.b. ]---------------------------------------+
|~po->weight~|~pad(po->required,10)~ |~fob->fob_terms~ |
+[TERMS ]----+[EXP DATE ]+[supply cd]+[ship via]----------------------------+
| | |~rfq->supply_cd~ |~po->ship_via~ |
+-------------+-----------+-----------+--------------------------------------+
~Printcode("COMP")~Please quote the articles and/or services listed below. Include freight, taxes and other charges.~Printcode("NOCOMP")~
comments-> ~po->comments~
+----+--------------------+-------------+----+---------------+---------------+
|item|item no./description| qty |unit| price | extended |
+----+--------------------+-------------+----+---------------+---------------+
~po2->item~ ~if(empty(supply2->part_no),inv->Part_no,supply2->part_no)~~po2->qty~ ~inv->unit~
~-~ ~trim(inv->manufact)~
~Printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
~padc(upper(trim(M_NAME)),80)~
page ~ltrim(str(page,4))~ [quote no.-> ~po-> (recno())~]
(continuation)
+----+--------------------+-------------+----+---------------+---------------+
|item|item no./description| qty |unit| price | extended |
+----+--------------------+-------------+----+---------------+---------------+
taxable
non-taxable
( %) tax
( %) tax
shipping
+-------[signature]----------+---[date]----+[est. delivery]+[total est. cost]+
| | | | |
+----------------------------+-------------+---------------+-----------------+
~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~ P A C K I N G L I S T
~padc(upper(m_name),48)~
~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
~padc(M_phone,48)~
[sold to]
[ship to]
~PAD(customer->name,35)~
~PAD(aShip2[1],35)~
~PAD(customer->company,35)~
~PAD(aShip2[2],35)~
~PAD(customer->address,35)~
~PAD(aShip2[3],35)~
~PAD(trim(customer->city)+", "+customer->state+" "+trim(customer->zip),35)~
~PAD(aShip2[4],35)~
[customer id]
[telephone]
[ ]
[ ]
~padl(pos->cust_id,9,"0")~
~customer->home_phone~
[INVOICE]
[date]
[trx type]
[sales rep]
~pos->(recno())~
~pad(dtoc(pos->date),10)~
~pos->trx_type~
~pos->sales_rep~ ~sale_rep->name~
[ship date]
[weight]
[ship via]
[terms]
~pad(dtoc(dFor),10)~
~pos->weight~
~pos->ship_via~
~Pad(posterms(),35)~
[cust PO]
[f.o.b.]
~pos->cust_po_no~
~fob->fob_terms~
item no./description
ordered
shipped
backorder
~pos_item->item~ ~inv->part_no~
~pos_item->order_qty~~ship->qty_shipd~ ~inv->unit~
~ship->back_order~
~-~ ~trim(inv->manufact)~
~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
* * * continued on page ~str(page+1,4)~ * * *
~padc(upper(trim(M_NAME)),80)~
page ~ltrim(str(page,4))~ [invoice no.-> ~pos-> (recno())~]
(continuation)
item no./description
ordered
shipped
backorder
Thank You For Your Business!
~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~ P A C K I N G L I S T
+=================================================+
|~padc(upper(m_name),48)~ |
+=================================================+
~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
~padc(M_phone,48)~
+------------[sold to]---------------+ +------------[ship to]---------------+
|~PAD(customer->name,35)~ | |~PAD(aShip2[1],35)~ |
|~PAD(customer->company,35)~ | |~PAD(aShip2[2],35)~ |
|~PAD(customer->address,35)~ | |~PAD(aShip2[3],35)~ |
|~PAD(trim(customer->city)+", "+customer->state+" "+trim(customer->zip),35)~ | |~PAD(aShip2[4],35)~ |
+--[customer id]----+--[telephone]---+ +--[ ]----+--[ ]----+
| ~padl(pos->cust_id,9,"0")~ |~customer->home_phone~ | | | |
+-------------------+----------------+ +-----------------+------------------+
+[INVOICE]--+[date]-----+[trx type]+[sales rep]------------------------------+
| ~pos->(recno())~ |~pad(dtoc(pos->date),10)~ |~pos->trx_type~ |~pos->sales_rep~ ~sale_rep->name~ |
+[ship date]+[weight]---+[ship via]+-----+-----[terms]-----------------------+
|~pad(dtoc(dFor),10)~ |~pos->weight~ |~pos->ship_via~|~Pad(posterms(),35)~|
+[cust PO]--+-----------+[f.o.b.]--------+-----------------------------------+
|~pos->cust_po_no~ |~fob->fob_terms~ |
+-----------------------+----------------------------------------------------+
+----+---------------------+--------------+--------------+----+--------------+
|item|item no./description |ordered |shipped |unit|backorder |
+----+---------------------+--------------+--------------+----+--------------+
~pos_item->item~ ~inv->part_no~
~pos_item->order_qty~~ship->qty_shipd~ ~inv->unit~
~ship->back_order~
~-~ ~trim(inv->manufact)~
~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
* * * continued on page ~str(page+1,4)~ * * *
~padc(upper(trim(M_NAME)),80)~
page ~ltrim(str(page,4))~ [invoice no.-> ~pos-> (recno())~]
(continuation)
+----+---------------------+--------------+--------------+----+--------------+
|item|item no./description |ordered |shipped |unit|backorder |
+----+---------------------+--------------+--------------+----+--------------+
Thank You For Your Business!
~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~
PURCHASE ORDER
[issued by]
[important]
~PAD(M_name,35)~
Our purchase order number must
~PAD(M_adr1,35)~
appear on all invoices, cases,
~PAD(M_adr2,35)~
packing lists and correspondence.
~PAD(M_adr3,35)~
[contact]
[telephone]
[order no.]
[issue date]
~po->contact~
~PAD(M_phone,14)~
~padl(ltrim(str(po->(RECNO()))),7,"0")~
~pad(dtoc(po->issued),10)~
[customer no.]
[cust. acct. no.]
[issued to]
~supplier->cust_no~
~supplier->acct_no~
~pad(aSup1,35)~
~pad(aSup2,35)~
~aSup3~
~pad(aSup4,35)~
[weight]
[required]
[f.o.b. ]
~po->weight~
~pad(dtoc(po->required),10)~
~fob->fob_terms~
[TERMS ]
[ ]
[supply cd]
[ship via]
~pad(cTerms(po->term_dscnt,po->term_days,po->net),11)~
~po->supply_cd~
~po->ship_via~
Please supply the articles and/or services listed below.
comments-> ~po->comments~
item no./description
qty
price
extended
~po2->item~ ~inv->part_no~~po2->qty~ ~inv->unit~ ~po2->cost~ ~str(po2->cost*po2->qty,15,2)~
~-~ ~trim(inv->manufact)~
~Printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
~schedule()~
[sub-total]
~str(subtotal,15,2)~
~padc(upper(trim(M_NAME)),80)~
page ~ltrim(str(page,4))~ [order no.-> ~po-> (recno())~]
(continuation)
item no./description
qty
price
extended
taxable ~po->taxable~
non-taxable ~po->non_taxabl~
~if(empty(po->tax1_rate),"","("+str(po->tax1_rate)+"%) tax "+str(po->tax1,13,2))~
~if(empty(po->tax2_rate),"","("+str(po->tax2_rate)+"%) tax "+str(po->tax2,13,2))~
shipping ~po->freight~
[signature]
[date]
[total est. cost]
~po->total~
~Printcode("COMP")~Certified that an unencumbered balance is available to meet this commitment.~Printcode("pitch10")~
~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~ I N V O I C E
~padc(upper(m_name),48)~
~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
~padc(M_phone,48)~
[sold to]
[ship to]
~PAD(customer->name,35)~
~PAD(aShip2[1],35)~
~PAD(customer->company,35)~
~PAD(aShip2[2],35)~
~PAD(customer->address,35)~
~PAD(aShip2[3],35)~
~PAD(trim(customer->city)+", "+customer->state+" "+trim(customer->zip),35)~
~PAD(aShip2[4],35)~
[customer id]
[telephone]
[ ]
[ ]
~padl(pos->cust_id,9,"0")~
~customer->home_phone~
[INVOICE]
[date]
[trx type]
[sales rep]
~pos->(recno())~
~pad(dtoc(pos->date),10)~
~pos->trx_type~
~pos->sales_rep~ ~sale_rep->name~
[ship date]
[weight]
[ship via]
[terms]
~pad(dtoc(pos->ship_date),10)~
~pos->weight~
~pos->ship_via~
~Pad(posterms(),35)~
[cust PO]
[f.o.b.]
~pos->cust_po_no~
~fob->fob_terms~
item no./description
quantity
unit cost
extended
~pos_item->item~ ~inv->part_no~ ~pos_item->order_qty~ ~inv->unit~ ~pos_item->price~ ~str(pos_item->order_qty*pos_item->price,15,2)~
~-~ ~trim(inv->manufact)~
~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
~posSchedule(3)~
* * * continued on page ~str(page+1,4)~ * * *
~padc(upper(trim(M_NAME)),80)~
page ~ltrim(str(page,4))~ [invoice no.-> ~pos-> (recno())~]
(continuation)
item no./description
quantity
unit cost
extended
[payment]
[charges]
~pad(aPaid[1],42)~
taxable
~pos->taxable~
~pad(aPaid[2],42)~
non-taxable
~pos->non_taxabl~
~pad(aPaid[3],42)~
~if(empty(pos->tax1_rate),space(12)+"
"+space(17),"("+str(pos->tax
1_rate,5,2)+"%) tax
"+str(tax1(),14,2))~
~pad(aPaid[4],42)~
~if(empty(pos->tax2_rate),space(12)+"
"+space(17),"("+str(pos->tax
2_rate,5,2)+"%) tax
"+str(tax2(),14,2))~
~pad(aPaid[5],42)~
shipping
~pos->freight~
~pad(aPaid[6],42)~
T O T A L
~str(postotal(),15,2)~
[amount tendered]
[change due]
[PAYMENT DUE]
[B A
L A N C E]
~str(amt_tender(),15,2)~
~str(change(),11,2)~
~pad(if(empty(balance()),"N/A",pos->net_due),10)~
~str(balance(),15,2)~
~if(empty(balance()),"","Please pay from this Invoice: No
statement will be issued.")~
~if(!empty(pos->savings)," Y O U R S A V I N G S ->
$"+STR(POS->SAVINGS)+IF(!EMPTY(posTOTAL()),str((1-(postotal()-tax1
()-tax2())/(pos->savings+postotal()-tax1()-tax2()))*100,6,2)+"%","
")," T H A N K Y O U F O R Y O U R O R D E R !")~
~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~
PURCHASE ORDER
[issued by]
[important]
~PAD(M_name,35)~
Our purchase order number must
~PAD(M_adr1,35)~
appear on all invoices, cases,
~PAD(M_adr2,35)~
packing lists and correspondence.
~PAD(M_adr3,35)~
[contact]
[telephone]
[order no.]
[issue date]
~po->contact~
~PAD(M_phone,14)~
~padl(ltrim(str(po->(RECNO()))),7,"0")~
~pad(dtoc(po->issued),10)~
[customer no.]
[cust. acct. no.]
[issued to]
~supplier->cust_no~
~supplier->acct_no~
~pad(aSup1,35)~
~pad(aSup2,35)~
~aSup3~
~pad(aSup4,35)~
[weight]
[required]
[f.o.b. ]
~po->weight~
~pad(dtoc(po->required),10)~
~fob->fob_terms~
[TERMS ]
[ ]
[supply cd]
[ship via]
~pad(cTerms(po->term_dscnt,po->term_days,po->net),11)~
~po->supply_cd~
~po->ship_via~
Please supply the articles and/or services listed below.
comments-> ~po->comments~
item no./description
qty
price
extended
~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~
+===================================+
| PURCHASE ORDER |
+===================================+
+------------[issued by]-------------+ +------------[important]-------------+
|~PAD(M_name,35)~ | |Our purchase order number must |
|~PAD(M_adr1,35)~ | |appear on all invoices, cases, |
|~PAD(M_adr2,35)~ | |packing lists and correspondence. |
|~PAD(M_adr3,35)~ | | |
+----[contact]------+--[telephone]---+ +--[order no.]----+--[issue date]----+
|~po->contact~ | ~PAD(M_phone,14)~ | | ~padl(ltrim(str(po->(RECNO()))),7,"0")~ | ~pad(dtoc(po->issued),10)~ |
+-------------------+----------------+ +[customer no.]---+[cust. acct. no.]-+
+- [issued to] -+ |~supplier->cust_no~|~supplier->acct_no~|
|~pad(aSup1,35)~ | +-----------------+------------------+
~pad(aSup2,35)~
~aSup3~
|~pad(aSup4,35)~ |
+- -+
+[weight]-----+[required]-+[f.o.b. ]---------------------------------------+
|~po->weight~|~pad(dtoc(po->required),10)~ |~fob->fob_terms~ |
+[TERMS ]----+[ ]+[supply cd]+[ship via]----------------------------+
|~pad(cTerms(po->term_dscnt,po->term_days,po->net),11)~ | |~po->supply_cd~ |~po->ship_via~ |
+-------------+-----------+-----------+--------------------------------------+
Please supply the articles and/or services listed below.
comments-> ~po->comments~
+----+--------------------+-------------+----+---------------+---------------+
|item|item no./description| qty |unit| price | extended |
+----+--------------------+-------------+----+---------------+---------------+